library(Seurat)
library(dplyr)
library(patchwork)
UMI_count_matrix_dir <- 'filtered_gene_bc_matrices\\hg19'
pbmc.data <- Read10X(data.dir=UMI_count_matrix_dir)
head(pbmc.data)
pbmc <- CreateSeuratObject(counts=pbmc.data,project='pbmc3k',min.cells=3,
                           min.features=200)

?scan
barcode <- paste0(UMI_count_matrix_dir,'\\barcodes.tsv')
scan(barcode,what='character',n=5)
genes <- paste0(UMI_count_matrix_dir,'\\genes.tsv')
scan(genes,what='character',n=5)
matrix <- paste0(UMI_count_matrix_dir,'\\matrix.mtx')


